home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xws5.t < prev    next >
Text File  |  1990-06-01  |  30KB  |  679 lines
  1. (HERALD XWS5 (ENV TSYS (XLIB INTERFACE)))
  2.  
  3. (DEFINE-FOREIGN XCREATECOLORMAP*
  4.                 ("XCreateColormap" (IN REP/C-POINTER)
  5.                                    (IN REP/INTEGER)
  6.                                    (IN REP/C-POINTER)
  7.                                    (IN REP/INTEGER))
  8.                 REP/INTEGER)
  9. (DEFINE (XCREATECOLORMAP DPY W VISUAL ALLOC)
  10.         (LET* ((DPY (CHK-DISPLAYP DPY))
  11.                (W W)
  12.                (VISUAL (CHK-VISUALP VISUAL))
  13.                (ALLOC ALLOC)
  14.                (RETURN-VALUE (XCREATECOLORMAP* DPY W VISUAL ALLOC)))
  15.               RETURN-VALUE))
  16. (DEFINE-FOREIGN XCOPYCOLORMAPANDFREE*
  17.                 ("XCopyColormapAndFree" (IN REP/C-POINTER) (IN REP/INTEGER))
  18.                 REP/INTEGER)
  19. (DEFINE (XCOPYCOLORMAPANDFREE DPY SRC_CMAP)
  20.         (LET* ((DPY (CHK-DISPLAYP DPY))
  21.                (SRC_CMAP SRC_CMAP)
  22.                (RETURN-VALUE (XCOPYCOLORMAPANDFREE* DPY SRC_CMAP)))
  23.               RETURN-VALUE))
  24. (DEFINE-FOREIGN XSETWINDOWCOLORMAP*
  25.                 ("XSetWindowColormap" (IN REP/C-POINTER)
  26.                                       (IN REP/INTEGER)
  27.                                       (IN REP/INTEGER))
  28.                 IGNORE)
  29. (DEFINE (XSETWINDOWCOLORMAP DPY W COLORMAP)
  30.         (LET* ((DPY (CHK-DISPLAYP DPY))
  31.                (W W)
  32.                (COLORMAP COLORMAP)
  33.                (RETURN-VALUE (BLOCK (XSETWINDOWCOLORMAP* DPY W COLORMAP)
  34.                                     '())))
  35.               RETURN-VALUE))
  36. (DEFINE-FOREIGN XFREECOLORMAP*
  37.                 ("XFreeColormap" (IN REP/C-POINTER) (IN REP/INTEGER))
  38.                 IGNORE)
  39. (DEFINE (XFREECOLORMAP DPY CMAP)
  40.         (LET* ((DPY (CHK-DISPLAYP DPY))
  41.                (CMAP CMAP)
  42.                (RETURN-VALUE (BLOCK (XFREECOLORMAP* DPY CMAP) '())))
  43.               RETURN-VALUE))
  44. (DEFINE-FOREIGN XALLOCCOLOR*
  45.                 ("XAllocColor" (IN REP/C-POINTER)
  46.                                (IN REP/INTEGER)
  47.                                (IN REP/C-POINTER))
  48.                 REP/INTEGER)
  49. (DEFINE (XALLOCCOLOR DPY CMAP DEF)
  50.         (LET* ((DPY (CHK-DISPLAYP DPY))
  51.                (CMAP CMAP)
  52.                (DEF (CHK-XCOLORP DEF))
  53.                (RETURN-VALUE (XALLOCCOLOR* DPY CMAP DEF)))
  54.               RETURN-VALUE))
  55. (DEFINE-FOREIGN XALLOCNAMEDCOLOR*
  56.                 ("XAllocNamedColor" (IN REP/C-POINTER)
  57.                                     (IN REP/INTEGER)
  58.                                     (IN REP/STRING)
  59.                                     (IN REP/EXTEND)
  60.                                     (IN REP/EXTEND))
  61.                 REP/INTEGER)
  62. (DEFINE (XALLOCNAMEDCOLOR DPY CMAP COLORNAME)
  63.         (LET* ((DPY (CHK-DISPLAYP DPY))
  64.                (CMAP CMAP)
  65.                (COLORNAME (IF (STRING? COLORNAME)
  66.                               (STRING->ASCIZ! COLORNAME)
  67.                               (ERROR "Argument is incorrect type: ~s" COLORNAME)))
  68.                (HARD_DEF (MAKE-BYTEV 12))
  69.                (EXACT_DEF (MAKE-BYTEV 12))
  70.                (RETURN-VALUE (XALLOCNAMEDCOLOR* DPY
  71.                                                 CMAP
  72.                                                 COLORNAME
  73.                                                 HARD_DEF
  74.                                                 EXACT_DEF)))
  75.               (RETURN RETURN-VALUE
  76.                       (CONS 'XCOLORP HARD_DEF)
  77.                       (CONS 'XCOLORP EXACT_DEF))))
  78. (DEFINE-FOREIGN XLOOKUPCOLOR*
  79.                 ("XLookupColor" (IN REP/C-POINTER)
  80.                                 (IN REP/INTEGER)
  81.                                 (IN REP/STRING)
  82.                                 (IN REP/EXTEND)
  83.                                 (IN REP/EXTEND))
  84.                 REP/INTEGER)
  85. (DEFINE (XLOOKUPCOLOR DPY CMAP SPEC)
  86.         (LET* ((DPY (CHK-DISPLAYP DPY))
  87.                (CMAP CMAP)
  88.                (SPEC (IF (STRING? SPEC)
  89.                          (STRING->ASCIZ! SPEC)
  90.                          (ERROR "Argument is incorrect type: ~s" SPEC)))
  91.                (DEF (MAKE-BYTEV 12))
  92.                (SCR (MAKE-BYTEV 12))
  93.                (RETURN-VALUE (XLOOKUPCOLOR* DPY CMAP SPEC DEF SCR)))
  94.               (RETURN RETURN-VALUE
  95.                       (CONS 'XCOLORP DEF)
  96.                       (CONS 'XCOLORP SCR))))
  97. (DEFINE-FOREIGN XALLOCCOLORCELLS*
  98.                 ("XAllocColorCells" (IN REP/C-POINTER)
  99.                                     (IN REP/INTEGER)
  100.                                     (IN REP/INTEGER)
  101.                                     (IN REP/C-POINTER)
  102.                                     (IN REP/INTEGER)
  103.                                     (IN REP/C-POINTER)
  104.                                     (IN REP/INTEGER))
  105.                 REP/INTEGER)
  106. (DEFINE (XALLOCCOLORCELLS DPY CMAP CONTIG MASKS NPLANES PIXELS NCOLORS)
  107.         (LET* ((DPY (CHK-DISPLAYP DPY))
  108.                (CMAP CMAP)
  109.                (CONTIG CONTIG)
  110.                (MASKS (CHK-UNSIGNEDAP MASKS))
  111.                (NPLANES NPLANES)
  112.                (PIXELS (CHK-UNSIGNEDAP PIXELS))
  113.                (NCOLORS NCOLORS)
  114.                (RETURN-VALUE (XALLOCCOLORCELLS* DPY
  115.                                                 CMAP
  116.                                                 CONTIG
  117.                                                 MASKS
  118.                                                 NPLANES
  119.                                                 PIXELS
  120.                                                 NCOLORS)))
  121.               RETURN-VALUE))
  122. (DEFINE-FOREIGN XALLOCCOLORPLANES*
  123.                 ("XAllocColorPlanes" (IN REP/C-POINTER)
  124.                                      (IN REP/INTEGER)
  125.                                      (IN REP/INTEGER)
  126.                                      (IN REP/C-POINTER)
  127.                                      (IN REP/INTEGER)
  128.                                      (IN REP/INTEGER)
  129.                                      (IN REP/INTEGER)
  130.                                      (IN REP/INTEGER)
  131.                                      (IN REP/EXTEND)
  132.                                      (IN REP/EXTEND)
  133.                                      (IN REP/EXTEND))
  134.                 REP/INTEGER)
  135. (DEFINE (XALLOCCOLORPLANES DPY CMAP CONTIG PIXELS NCOLORS NREDS NGREENS NBLUES)
  136.         (LET* ((DPY (CHK-DISPLAYP DPY))
  137.                (CMAP CMAP)
  138.                (CONTIG CONTIG)
  139.                (PIXELS (CHK-UNSIGNEDAP PIXELS))
  140.                (NCOLORS NCOLORS)
  141.                (NREDS NREDS)
  142.                (NGREENS NGREENS)
  143.                (NBLUES NBLUES)
  144.                (RMASK (MAKE-BYTEV 4))
  145.                (GMASK (MAKE-BYTEV 4))
  146.                (BMASK (MAKE-BYTEV 4))
  147.                (RETURN-VALUE (XALLOCCOLORPLANES* DPY
  148.                                                  CMAP
  149.                                                  CONTIG
  150.                                                  PIXELS
  151.                                                  NCOLORS
  152.                                                  NREDS
  153.                                                  NGREENS
  154.                                                  NBLUES
  155.                                                  RMASK
  156.                                                  GMASK
  157.                                                  BMASK)))
  158.               (RETURN RETURN-VALUE
  159.                       (MREF-INTEGER RMASK 0)
  160.                       (MREF-INTEGER GMASK 0)
  161.                       (MREF-INTEGER BMASK 0))))
  162. (DEFINE-FOREIGN XSTORECOLORS*
  163.                 ("XStoreColors" (IN REP/C-POINTER)
  164.                                 (IN REP/INTEGER)
  165.                                 (IN REP/C-POINTER)
  166.                                 (IN REP/INTEGER))
  167.                 IGNORE)
  168. (DEFINE (XSTORECOLORS DPY CMAP DEFS NCOLORS)
  169.         (LET* ((DPY (CHK-DISPLAYP DPY))
  170.                (CMAP CMAP)
  171.                (DEFS (CHK-XCOLORAP DEFS))
  172.                (NCOLORS NCOLORS)
  173.                (RETURN-VALUE (BLOCK (XSTORECOLORS* DPY CMAP DEFS NCOLORS)
  174.                                     '())))
  175.               RETURN-VALUE))
  176. (DEFINE-FOREIGN XSTORECOLOR*
  177.                 ("XStoreColor" (IN REP/C-POINTER)
  178.                                (IN REP/INTEGER)
  179.                                (IN REP/C-POINTER))
  180.                 IGNORE)
  181. (DEFINE (XSTORECOLOR DPY CMAP DEF)
  182.         (LET* ((DPY (CHK-DISPLAYP DPY))
  183.                (CMAP CMAP)
  184.                (DEF (CHK-XCOLORP DEF))
  185.                (RETURN-VALUE (BLOCK (XSTORECOLOR* DPY CMAP DEF) '())))
  186.               RETURN-VALUE))
  187. (DEFINE-FOREIGN XSTORENAMEDCOLOR*
  188.                 ("XStoreNamedColor" (IN REP/C-POINTER)
  189.                                     (IN REP/INTEGER)
  190.                                     (IN REP/STRING)
  191.                                     (IN REP/INTEGER)
  192.                                     (IN REP/INTEGER))
  193.                 IGNORE)
  194. (DEFINE (XSTORENAMEDCOLOR DPY CMAP NAME PIXEL FLAGS)
  195.         (LET* ((DPY (CHK-DISPLAYP DPY))
  196.                (CMAP CMAP)
  197.                (NAME (IF (STRING? NAME)
  198.                          (STRING->ASCIZ! NAME)
  199.                          (ERROR "Argument is incorrect type: ~s" NAME)))
  200.                (PIXEL PIXEL)
  201.                (FLAGS FLAGS)
  202.                (RETURN-VALUE (BLOCK (XSTORENAMEDCOLOR* DPY
  203.                                                        CMAP
  204.                                                        NAME
  205.                                                        PIXEL
  206.                                                        FLAGS)
  207.                                     '())))
  208.               RETURN-VALUE))
  209. (DEFINE-FOREIGN XFREECOLORS*
  210.                 ("XFreeColors" (IN REP/C-POINTER)
  211.                                (IN REP/INTEGER)
  212.                                (IN REP/C-POINTER)
  213.                                (IN REP/INTEGER)
  214.                                (IN REP/INTEGER))
  215.                 IGNORE)
  216. (DEFINE (XFREECOLORS DPY CMAP PIXELS NPIXELS PLANES)
  217.         (LET* ((DPY (CHK-DISPLAYP DPY))
  218.                (CMAP CMAP)
  219.                (PIXELS (CHK-UNSIGNEDAP PIXELS))
  220.                (NPIXELS NPIXELS)
  221.                (PLANES PLANES)
  222.                (RETURN-VALUE (BLOCK (XFREECOLORS* DPY
  223.                                                   CMAP
  224.                                                   PIXELS
  225.                                                   NPIXELS
  226.                                                   PLANES)
  227.                                     '())))
  228.               RETURN-VALUE))
  229. (DEFINE-FOREIGN XQUERYCOLOR*
  230.                 ("XQueryColor" (IN REP/C-POINTER)
  231.                                (IN REP/INTEGER)
  232.                                (IN REP/C-POINTER))
  233.                 IGNORE)
  234. (DEFINE (XQUERYCOLOR DPY CMAP DEF)
  235.         (LET* ((DPY (CHK-DISPLAYP DPY))
  236.                (CMAP CMAP)
  237.                (DEF (CHK-XCOLORP DEF))
  238.                (RETURN-VALUE (BLOCK (XQUERYCOLOR* DPY CMAP DEF) '())))
  239.               RETURN-VALUE))
  240. (DEFINE-FOREIGN XQUERYCOLORS*
  241.                 ("XQueryColors" (IN REP/C-POINTER)
  242.                                 (IN REP/INTEGER)
  243.                                 (IN REP/C-POINTER)
  244.                                 (IN REP/INTEGER))
  245.                 IGNORE)
  246. (DEFINE (XQUERYCOLORS DPY CMAP DEFS NCOLORS)
  247.         (LET* ((DPY (CHK-DISPLAYP DPY))
  248.                (CMAP CMAP)
  249.                (DEFS (CHK-XCOLORAP DEFS))
  250.                (NCOLORS NCOLORS)
  251.                (RETURN-VALUE (BLOCK (XQUERYCOLORS* DPY CMAP DEFS NCOLORS)
  252.                                     '())))
  253.               RETURN-VALUE))
  254. (DEFINE-FOREIGN XCREATEPIXMAP*
  255.                 ("XCreatePixmap" (IN REP/C-POINTER)
  256.                                  (IN REP/INTEGER)
  257.                                  (IN REP/INTEGER)
  258.                                  (IN REP/INTEGER)
  259.                                  (IN REP/INTEGER))
  260.                 REP/INTEGER)
  261. (DEFINE (XCREATEPIXMAP DPY D WIDTH HEIGHT DEPTH)
  262.         (LET* ((DPY (CHK-DISPLAYP DPY))
  263.                (D D)
  264.                (WIDTH WIDTH)
  265.                (HEIGHT HEIGHT)
  266.                (DEPTH DEPTH)
  267.                (RETURN-VALUE (XCREATEPIXMAP* DPY D WIDTH HEIGHT DEPTH)))
  268.               RETURN-VALUE))
  269. (DEFINE-FOREIGN XFREEPIXMAP*
  270.                 ("XFreePixmap" (IN REP/C-POINTER) (IN REP/INTEGER))
  271.                 IGNORE)
  272. (DEFINE (XFREEPIXMAP DPY PIXMAP)
  273.         (LET* ((DPY (CHK-DISPLAYP DPY))
  274.                (PIXMAP PIXMAP)
  275.                (RETURN-VALUE (BLOCK (XFREEPIXMAP* DPY PIXMAP) '())))
  276.               RETURN-VALUE))
  277. (DEFINE-FOREIGN XCREATEGC*
  278.                 ("XCreateGC" (IN REP/C-POINTER)
  279.                              (IN REP/INTEGER)
  280.                              (IN REP/INTEGER)
  281.                              (IN REP/C-POINTER))
  282.                 REP/POINTER)
  283. (DEFINE (XCREATEGC DPY D VALUEMASK VALUES)
  284.         (LET* ((DPY (CHK-DISPLAYP DPY))
  285.                (D D)
  286.                (VALUEMASK VALUEMASK)
  287.                (VALUES (CHK-XGCVALUESP VALUES))
  288.                (RETURN-VALUE (CONS 'GC
  289.                                    (XCREATEGC* DPY D VALUEMASK VALUES))))
  290.               RETURN-VALUE))
  291. (DEFINE-FOREIGN XCOPYGC*
  292.                 ("XCopyGC" (IN REP/C-POINTER)
  293.                            (IN REP/C-POINTER)
  294.                            (IN REP/INTEGER)
  295.                            (IN REP/C-POINTER))
  296.                 IGNORE)
  297. (DEFINE (XCOPYGC DPY SRCGC MASK DESTGC)
  298.         (LET* ((DPY (CHK-DISPLAYP DPY))
  299.                (SRCGC (CHK-GC SRCGC))
  300.                (MASK MASK)
  301.                (DESTGC (CHK-GC DESTGC))
  302.                (RETURN-VALUE (BLOCK (XCOPYGC* DPY SRCGC MASK DESTGC) '())))
  303.               RETURN-VALUE))
  304. (DEFINE-FOREIGN XCHANGEGC*
  305.                 ("XChangeGC" (IN REP/C-POINTER)
  306.                              (IN REP/C-POINTER)
  307.                              (IN REP/INTEGER)
  308.                              (IN REP/C-POINTER))
  309.                 IGNORE)
  310. (DEFINE (XCHANGEGC DPY GC VALUEMASK VALUES)
  311.         (LET* ((DPY (CHK-DISPLAYP DPY))
  312.                (GC (CHK-GC GC))
  313.                (VALUEMASK VALUEMASK)
  314.                (VALUES (CHK-XGCVALUESP VALUES))
  315.                (RETURN-VALUE (BLOCK (XCHANGEGC* DPY GC VALUEMASK VALUES)
  316.                                     '())))
  317.               RETURN-VALUE))
  318. (DEFINE-FOREIGN XFREEGC*
  319.                 ("XFreeGC" (IN REP/C-POINTER) (IN REP/C-POINTER))
  320.                 IGNORE)
  321. (DEFINE (XFREEGC DPY GC)
  322.         (LET* ((DPY (CHK-DISPLAYP DPY))
  323.                (GC (CHK-GC GC))
  324.                (RETURN-VALUE (BLOCK (XFREEGC* DPY GC) '())))
  325.               RETURN-VALUE))
  326. (DEFINE-FOREIGN XGCONTEXTFROMGC*
  327.                 ("XGContextFromGC" (IN REP/C-POINTER))
  328.                 REP/INTEGER)
  329. (DEFINE (XGCONTEXTFROMGC GC)
  330.         (LET* ((GC (CHK-GC GC)) (RETURN-VALUE (XGCONTEXTFROMGC* GC)))
  331.               RETURN-VALUE))
  332. (DEFINE-FOREIGN XSETSTATE*
  333.                 ("XSetState" (IN REP/C-POINTER)
  334.                              (IN REP/C-POINTER)
  335.                              (IN REP/INTEGER)
  336.                              (IN REP/INTEGER)
  337.                              (IN REP/INTEGER)
  338.                              (IN REP/INTEGER))
  339.                 IGNORE)
  340. (DEFINE (XSETSTATE DPY GC FOREGROUND BACKGROUND FUNCTION PLANEMASK)
  341.         (LET* ((DPY (CHK-DISPLAYP DPY))
  342.                (GC (CHK-GC GC))
  343.                (FOREGROUND FOREGROUND)
  344.                (BACKGROUND BACKGROUND)
  345.                (FUNCTION FUNCTION)
  346.                (PLANEMASK PLANEMASK)
  347.                (RETURN-VALUE (BLOCK (XSETSTATE* DPY
  348.                                                 GC
  349.                                                 FOREGROUND
  350.                                                 BACKGROUND
  351.                                                 FUNCTION
  352.                                                 PLANEMASK)
  353.                                     '())))
  354.               RETURN-VALUE))
  355. (DEFINE-FOREIGN XSETFOREGROUND*
  356.                 ("XSetForeground" (IN REP/C-POINTER)
  357.                                   (IN REP/C-POINTER)
  358.                                   (IN REP/INTEGER))
  359.                 IGNORE)
  360. (DEFINE (XSETFOREGROUND DPY GC FOREGROUND)
  361.         (LET* ((DPY (CHK-DISPLAYP DPY))
  362.                (GC (CHK-GC GC))
  363.                (FOREGROUND FOREGROUND)
  364.                (RETURN-VALUE (BLOCK (XSETFOREGROUND* DPY GC FOREGROUND)
  365.                                     '())))
  366.               RETURN-VALUE))
  367. (DEFINE-FOREIGN XSETBACKGROUND*
  368.                 ("XSetBackground" (IN REP/C-POINTER)
  369.                                   (IN REP/C-POINTER)
  370.                                   (IN REP/INTEGER))
  371.                 IGNORE)
  372. (DEFINE (XSETBACKGROUND DPY GC BACKGROUND)
  373.         (LET* ((DPY (CHK-DISPLAYP DPY))
  374.                (GC (CHK-GC GC))
  375.                (BACKGROUND BACKGROUND)
  376.                (RETURN-VALUE (BLOCK (XSETBACKGROUND* DPY GC BACKGROUND)
  377.                                     '())))
  378.               RETURN-VALUE))
  379. (DEFINE-FOREIGN XSETFUNCTION*
  380.                 ("XSetFunction" (IN REP/C-POINTER)
  381.                                 (IN REP/C-POINTER)
  382.                                 (IN REP/INTEGER))
  383.                 IGNORE)
  384. (DEFINE (XSETFUNCTION DPY GC FUNCTION)
  385.         (LET* ((DPY (CHK-DISPLAYP DPY))
  386.                (GC (CHK-GC GC))
  387.                (FUNCTION FUNCTION)
  388.                (RETURN-VALUE (BLOCK (XSETFUNCTION* DPY GC FUNCTION) '())))
  389.               RETURN-VALUE))
  390. (DEFINE-FOREIGN XSETPLANEMASK*
  391.                 ("XSetPlaneMask" (IN REP/C-POINTER)
  392.                                  (IN REP/C-POINTER)
  393.                                  (IN REP/INTEGER))
  394.                 IGNORE)
  395. (DEFINE (XSETPLANEMASK DPY GC PLANEMASK)
  396.         (LET* ((DPY (CHK-DISPLAYP DPY))
  397.                (GC (CHK-GC GC))
  398.                (PLANEMASK PLANEMASK)
  399.                (RETURN-VALUE (BLOCK (XSETPLANEMASK* DPY GC PLANEMASK)
  400.                                     '())))
  401.               RETURN-VALUE))
  402. (DEFINE-FOREIGN XSETLINEATTRIBUTES*
  403.                 ("XSetLineAttributes" (IN REP/C-POINTER)
  404.                                       (IN REP/C-POINTER)
  405.                                       (IN REP/INTEGER)
  406.                                       (IN REP/INTEGER)
  407.                                       (IN REP/INTEGER)
  408.                                       (IN REP/INTEGER))
  409.                 IGNORE)
  410. (DEFINE (XSETLINEATTRIBUTES DPY GC LINEWIDTH LINESTYLE CAPSTYLE JOINSTYLE)
  411.         (LET* ((DPY (CHK-DISPLAYP DPY))
  412.                (GC (CHK-GC GC))
  413.                (LINEWIDTH LINEWIDTH)
  414.                (LINESTYLE LINESTYLE)
  415.                (CAPSTYLE CAPSTYLE)
  416.                (JOINSTYLE JOINSTYLE)
  417.                (RETURN-VALUE (BLOCK (XSETLINEATTRIBUTES* DPY
  418.                                                          GC
  419.                                                          LINEWIDTH
  420.                                                          LINESTYLE
  421.                                                          CAPSTYLE
  422.                                                          JOINSTYLE)
  423.                                     '())))
  424.               RETURN-VALUE))
  425. (DEFINE-FOREIGN XSETDASHES*
  426.                 ("XSetDashes" (IN REP/C-POINTER)
  427.                               (IN REP/C-POINTER)
  428.                               (IN REP/INTEGER)
  429.                               (IN REP/C-POINTER)
  430.                               (IN REP/INTEGER))
  431.                 IGNORE)
  432. (DEFINE (XSETDASHES DPY GC DASH_OFFSET LIST N)
  433.         (LET* ((DPY (CHK-DISPLAYP DPY))
  434.                (GC (CHK-GC GC))
  435.                (DASH_OFFSET DASH_OFFSET)
  436.                (LIST (CHK-CHARAP LIST))
  437.                (N N)
  438.                (RETURN-VALUE (BLOCK (XSETDASHES* DPY GC DASH_OFFSET LIST N)
  439.                                     '())))
  440.               RETURN-VALUE))
  441. (DEFINE-FOREIGN XSETFILLSTYLE*
  442.                 ("XSetFillStyle" (IN REP/C-POINTER)
  443.                                  (IN REP/C-POINTER)
  444.                                  (IN REP/INTEGER))
  445.                 IGNORE)
  446. (DEFINE (XSETFILLSTYLE DPY GC FILL_STYLE)
  447.         (LET* ((DPY (CHK-DISPLAYP DPY))
  448.                (GC (CHK-GC GC))
  449.                (FILL_STYLE FILL_STYLE)
  450.                (RETURN-VALUE (BLOCK (XSETFILLSTYLE* DPY GC FILL_STYLE)
  451.                                     '())))
  452.               RETURN-VALUE))
  453. (DEFINE-FOREIGN XSETFILLRULE*
  454.                 ("XSetFillRule" (IN REP/C-POINTER)
  455.                                 (IN REP/C-POINTER)
  456.                                 (IN REP/INTEGER))
  457.                 IGNORE)
  458. (DEFINE (XSETFILLRULE DPY GC FILL_RULE)
  459.         (LET* ((DPY (CHK-DISPLAYP DPY))
  460.                (GC (CHK-GC GC))
  461.                (FILL_RULE FILL_RULE)
  462.                (RETURN-VALUE (BLOCK (XSETFILLRULE* DPY GC FILL_RULE) '())))
  463.               RETURN-VALUE))
  464. (DEFINE-FOREIGN XQUERYBESTSIZE*
  465.                 ("XQueryBestSize" (IN REP/C-POINTER)
  466.                                   (IN REP/INTEGER)
  467.                                   (IN REP/INTEGER)
  468.                                   (IN REP/INTEGER)
  469.                                   (IN REP/INTEGER)
  470.                                   (IN REP/EXTEND)
  471.                                   (IN REP/EXTEND))
  472.                 REP/INTEGER)
  473. (DEFINE (XQUERYBESTSIZE DPY CLASS DRAWABLE WIDTH HEIGHT)
  474.         (LET* ((DPY (CHK-DISPLAYP DPY))
  475.                (CLASS CLASS)
  476.                (DRAWABLE DRAWABLE)
  477.                (WIDTH WIDTH)
  478.                (HEIGHT HEIGHT)
  479.                (RET_WIDTH (MAKE-BYTEV 4))
  480.                (RET_HEIGHT (MAKE-BYTEV 4))
  481.                (RETURN-VALUE (XQUERYBESTSIZE* DPY
  482.                                               CLASS
  483.                                               DRAWABLE
  484.                                               WIDTH
  485.                                               HEIGHT
  486.                                               RET_WIDTH
  487.                                               RET_HEIGHT)))
  488.               (RETURN RETURN-VALUE
  489.                       (MREF-INTEGER RET_WIDTH 0)
  490.                       (MREF-INTEGER RET_HEIGHT 0))))
  491. (DEFINE-FOREIGN XQUERYBESTTILE*
  492.                 ("XQueryBestTile" (IN REP/C-POINTER)
  493.                                   (IN REP/INTEGER)
  494.                                   (IN REP/INTEGER)
  495.                                   (IN REP/INTEGER)
  496.                                   (IN REP/EXTEND)
  497.                                   (IN REP/EXTEND))
  498.                 REP/INTEGER)
  499. (DEFINE (XQUERYBESTTILE DPY DRAWABLE WIDTH HEIGHT)
  500.         (LET* ((DPY (CHK-DISPLAYP DPY))
  501.                (DRAWABLE DRAWABLE)
  502.                (WIDTH WIDTH)
  503.                (HEIGHT HEIGHT)
  504.                (RET_WIDTH (MAKE-BYTEV 4))
  505.                (RET_HEIGHT (MAKE-BYTEV 4))
  506.                (RETURN-VALUE (XQUERYBESTTILE* DPY
  507.                                               DRAWABLE
  508.                                               WIDTH
  509.                                               HEIGHT
  510.                                               RET_WIDTH
  511.                                               RET_HEIGHT)))
  512.               (RETURN RETURN-VALUE
  513.                       (MREF-INTEGER RET_WIDTH 0)
  514.                       (MREF-INTEGER RET_HEIGHT 0))))
  515. (DEFINE-FOREIGN XQUERYBESTSTIPPLE*
  516.                 ("XQueryBestStipple" (IN REP/C-POINTER)
  517.                                      (IN REP/INTEGER)
  518.                                      (IN REP/INTEGER)
  519.                                      (IN REP/INTEGER)
  520.                                      (IN REP/EXTEND)
  521.                                      (IN REP/EXTEND))
  522.                 REP/INTEGER)
  523. (DEFINE (XQUERYBESTSTIPPLE DPY DRAWABLE WIDTH HEIGHT)
  524.         (LET* ((DPY (CHK-DISPLAYP DPY))
  525.                (DRAWABLE DRAWABLE)
  526.                (WIDTH WIDTH)
  527.                (HEIGHT HEIGHT)
  528.                (RET_WIDTH (MAKE-BYTEV 4))
  529.                (RET_HEIGHT (MAKE-BYTEV 4))
  530.                (RETURN-VALUE (XQUERYBESTSTIPPLE* DPY
  531.                                                  DRAWABLE
  532.                                                  WIDTH
  533.                                                  HEIGHT
  534.                                                  RET_WIDTH
  535.                                                  RET_HEIGHT)))
  536.               (RETURN RETURN-VALUE
  537.                       (MREF-INTEGER RET_WIDTH 0)
  538.                       (MREF-INTEGER RET_HEIGHT 0))))
  539. (DEFINE-FOREIGN XSETTILE*
  540.                 ("XSetTile" (IN REP/C-POINTER)
  541.                             (IN REP/C-POINTER)
  542.                             (IN REP/INTEGER))
  543.                 IGNORE)
  544. (DEFINE (XSETTILE DPY GC TILE)
  545.         (LET* ((DPY (CHK-DISPLAYP DPY))
  546.                (GC (CHK-GC GC))
  547.                (TILE TILE)
  548.                (RETURN-VALUE (BLOCK (XSETTILE* DPY GC TILE) '())))
  549.               RETURN-VALUE))
  550. (DEFINE-FOREIGN XSETSTIPPLE*
  551.                 ("XSetStipple" (IN REP/C-POINTER)
  552.                                (IN REP/C-POINTER)
  553.                                (IN REP/INTEGER))
  554.                 IGNORE)
  555. (DEFINE (XSETSTIPPLE DPY GC STIPPLE)
  556.         (LET* ((DPY (CHK-DISPLAYP DPY))
  557.                (GC (CHK-GC GC))
  558.                (STIPPLE STIPPLE)
  559.                (RETURN-VALUE (BLOCK (XSETSTIPPLE* DPY GC STIPPLE) '())))
  560.               RETURN-VALUE))
  561. (DEFINE-FOREIGN XSETTSORIGIN*
  562.                 ("XSetTSOrigin" (IN REP/C-POINTER)
  563.                                 (IN REP/C-POINTER)
  564.                                 (IN REP/INTEGER)
  565.                                 (IN REP/INTEGER))
  566.                 IGNORE)
  567. (DEFINE (XSETTSORIGIN DPY GC X Y)
  568.         (LET* ((DPY (CHK-DISPLAYP DPY))
  569.                (GC (CHK-GC GC))
  570.                (X X)
  571.                (Y Y)
  572.                (RETURN-VALUE (BLOCK (XSETTSORIGIN* DPY GC X Y) '())))
  573.               RETURN-VALUE))
  574. (DEFINE-FOREIGN XSETFONT*
  575.                 ("XSetFont" (IN REP/C-POINTER)
  576.                             (IN REP/C-POINTER)
  577.                             (IN REP/INTEGER))
  578.                 IGNORE)
  579. (DEFINE (XSETFONT DPY GC FONT)
  580.         (LET* ((DPY (CHK-DISPLAYP DPY))
  581.                (GC (CHK-GC GC))
  582.                (FONT FONT)
  583.                (RETURN-VALUE (BLOCK (XSETFONT* DPY GC FONT) '())))
  584.               RETURN-VALUE))
  585. (DEFINE-FOREIGN XSETCLIPORIGIN*
  586.                 ("XSetClipOrigin" (IN REP/C-POINTER)
  587.                                   (IN REP/C-POINTER)
  588.                                   (IN REP/INTEGER)
  589.                                   (IN REP/INTEGER))
  590.                 IGNORE)
  591. (DEFINE (XSETCLIPORIGIN DPY GC XORIG YORIG)
  592.         (LET* ((DPY (CHK-DISPLAYP DPY))
  593.                (GC (CHK-GC GC))
  594.                (XORIG XORIG)
  595.                (YORIG YORIG)
  596.                (RETURN-VALUE (BLOCK (XSETCLIPORIGIN* DPY GC XORIG YORIG)
  597.                                     '())))
  598.               RETURN-VALUE))
  599. (DEFINE-FOREIGN XSETCLIPMASK*
  600.                 ("XSetClipMask" (IN REP/C-POINTER)
  601.                                 (IN REP/C-POINTER)
  602.                                 (IN REP/INTEGER))
  603.                 IGNORE)
  604. (DEFINE (XSETCLIPMASK DPY GC MASK)
  605.         (LET* ((DPY (CHK-DISPLAYP DPY))
  606.                (GC (CHK-GC GC))
  607.                (MASK MASK)
  608.                (RETURN-VALUE (BLOCK (XSETCLIPMASK* DPY GC MASK) '())))
  609.               RETURN-VALUE))
  610. (DEFINE-FOREIGN XSETCLIPRECTANGLES*
  611.                 ("XSetClipRectangles" (IN REP/C-POINTER)
  612.                                       (IN REP/C-POINTER)
  613.                                       (IN REP/INTEGER)
  614.                                       (IN REP/INTEGER)
  615.                                       (IN REP/C-POINTER)
  616.                                       (IN REP/INTEGER)
  617.                                       (IN REP/INTEGER))
  618.                 IGNORE)
  619. (DEFINE (XSETCLIPRECTANGLES DPY
  620.                             GC
  621.                             CLIP_X_ORIGIN
  622.                             CLIP_Y_ORIGIN
  623.                             RECTANGLES
  624.                             N
  625.                             ORDERING)
  626.         (LET* ((DPY (CHK-DISPLAYP DPY))
  627.                (GC (CHK-GC GC))
  628.                (CLIP_X_ORIGIN CLIP_X_ORIGIN)
  629.                (CLIP_Y_ORIGIN CLIP_Y_ORIGIN)
  630.                (RECTANGLES (CHK-XRECTANGLEAP RECTANGLES))
  631.                (N N)
  632.                (ORDERING ORDERING)
  633.                (RETURN-VALUE (BLOCK (XSETCLIPRECTANGLES* DPY
  634.                                                          GC
  635.                                                          CLIP_X_ORIGIN
  636.                                                          CLIP_Y_ORIGIN
  637.                                                          RECTANGLES
  638.                                                          N
  639.                                                          ORDERING)
  640.                                     '())))
  641.               RETURN-VALUE))
  642. (DEFINE-FOREIGN XSETARCMODE*
  643.                 ("XSetArcMode" (IN REP/C-POINTER)
  644.                                (IN REP/C-POINTER)
  645.                                (IN REP/INTEGER))
  646.                 IGNORE)
  647. (DEFINE (XSETARCMODE DPY GC ARC_MODE)
  648.         (LET* ((DPY (CHK-DISPLAYP DPY))
  649.                (GC (CHK-GC GC))
  650.                (ARC_MODE ARC_MODE)
  651.                (RETURN-VALUE (BLOCK (XSETARCMODE* DPY GC ARC_MODE) '())))
  652.               RETURN-VALUE))
  653. (DEFINE-FOREIGN XSETSUBWINDOWMODE*
  654.                 ("XSetSubwindowMode" (IN REP/C-POINTER)
  655.                                      (IN REP/C-POINTER)
  656.                                      (IN REP/INTEGER))
  657.                 IGNORE)
  658. (DEFINE (XSETSUBWINDOWMODE DPY GC SUBWINDOW_MODE)
  659.         (LET* ((DPY (CHK-DISPLAYP DPY))
  660.                (GC (CHK-GC GC))
  661.                (SUBWINDOW_MODE SUBWINDOW_MODE)
  662.                (RETURN-VALUE (BLOCK (XSETSUBWINDOWMODE* DPY GC SUBWINDOW_MODE)
  663.                                     '())))
  664.               RETURN-VALUE))
  665. (DEFINE-FOREIGN XSETGRAPHICSEXPOSURES*
  666.                 ("XSetGraphicsExposures" (IN REP/C-POINTER)
  667.                                          (IN REP/C-POINTER)
  668.                                          (IN REP/INTEGER))
  669.                 IGNORE)
  670. (DEFINE (XSETGRAPHICSEXPOSURES DPY GC GRAPHICS_EXPOSURES)
  671.         (LET* ((DPY (CHK-DISPLAYP DPY))
  672.                (GC (CHK-GC GC))
  673.                (GRAPHICS_EXPOSURES GRAPHICS_EXPOSURES)
  674.                (RETURN-VALUE (BLOCK (XSETGRAPHICSEXPOSURES* DPY
  675.                                                             GC
  676.                                                             GRAPHICS_EXPOSURES)
  677.                                     '())))
  678.               RETURN-VALUE))
  679.